home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / EnterAct 3.5 / Drag_on Modules / hAWK programs / $FindSetVolEtc < prev    next >
Encoding:
Text File  |  1991-09-07  |  379 b   |  14 lines  |  [TEXT/KEEN]
  1. #An example of a custom hAWK program knocked off in a minute
  2. #to solve a small search problem.
  3. # - some borrowed from $MFSListInContext
  4. # File name and line number are printed before each instance
  5. #Used with "MFS selected files" input option
  6.  
  7. FNR == 1 {    z = split(FILENAME, names, ":")
  8.         }
  9.  
  10. /PBGetWDInfo|PBGetCatInfo|PBOpenWD|SetVol/ {
  11.         print names[z], FNR
  12.         print "\t", $0
  13.         }
  14.